home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacWorld 1996 April
/
Macworld (1996-04).dmg
/
Educational Demos
/
Goldilocks Gamebook
/
Goldilocks.DIR
/
00533_Script_533
< prev
next >
Wrap
Text File
|
1995-11-20
|
637b
|
27 lines
-- Go to Info screen
on mouseDown
global MC
puppetSound "Click.AIF"
put mouseCast() into MC
repeat while stillDown() = 1
if mouseCast() = MC then
set the castNum of sprite (the ClickOn) to MC +1
updateStage
next repeat
end if
if (mouseCast() <> MC + 1) then set the castNum of sprite (the ClickOn) to MC
updateStage
end repeat
end
on mouseUp
global MC,pageCount
set the castNum of sprite (the clickOn) to MC
updateStage
if the mouseCast = MC or the mouseCast = MC + 1 then
resetAll
go to "Info"
end if
end